home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / firefight.3 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  19KB  |  566 lines
  1. 10 :REM *** R. PRACHUN (1983) ***
  2. 12 :REM *** P.O.BOX 1447      ***
  3. 14 :REM *** PORT PERRY, ONT.  ***
  4. 16 :REM *** L0B 1N0           ***
  5. 18 :
  6. 22 DATA 169 , 1 , 162 , 4 , 160
  7. 24 DATA 255 , 32 , 186 , 255 , 32
  8. 26 DATA 192 , 255 , 162 , 1 , 32
  9. 28 DATA 201 , 255 , 133 , 2 , 32
  10. 30 DATA 231 , 255 , 96 , 0 , 0
  11. 31 :
  12. 32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
  13. 33 :
  14. 34 YY=28:GOSUB10000:DQ=0
  15. 36 DL$(1)="                                     "
  16. 38 DL$(2)="                                     "
  17. 40 DL$(3)="                                     "
  18. 42 DL$(4)="                                     "
  19. 44 F$="":WS$=""
  20. 46 NA$="                [198]IREFIGHT "
  21. 48 MO$(0)="    ":MO$(1)=""
  22. 50 E$="                                                      "
  23. 52 X1$="":X2$=""
  24. 54 X3$="":X4$=""
  25. 56 X5$=""
  26. 58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
  27. 60 Y1$=""
  28. 62 Y2$=""
  29. 64 Y3$=""
  30. 66 Y4$=""
  31. 68 PRINTCHR$(142):PRINT""
  32. 70 GOSUB5220
  33. 72 PRINT"[147]"CHR$(14):GOSUB5000
  34. 74 GOTO122
  35. 76 DIM P1$(3,120):I=0
  36. 78 C1=0:C2=0:W=0:R=0:PR=0
  37. 80 :
  38. 82 FORK=1TO3:I=0:POKE53280,K+3:POKE53281,K+4
  39. 84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
  40. 86 N1(K)=N1(K)+1:GOTO84
  41. 88 NEXT K
  42. 90 :
  43. 92 FORK=1TO3:POKE53280,K+3:POKE53281,K+4
  44. 94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
  45. 96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
  46. 98 CV=CV+1:IFCV=2THENYY=158:CV=0
  47. 100 IFCV=1THENYY=28
  48. 102 GOSUB5350:NEXTJ:PRINT""
  49. 104 L(K,1)=INT(8*RND(1)+1)
  50. 106 FOR J=2TO5
  51. 108 L(K,J)=INT(8*RND(1)+1)
  52. 110 FORL=1TOJ-1
  53. 112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
  54. 114 NEXTL,J
  55. 116 NEXTK
  56. 118 RETURN
  57. 120 :
  58. 122 GOSUB194:F=1:GOSUB5670
  59. 124 GOSUB 248
  60. 126 IFVQ=2THENVQ=0:GOTO122
  61. 128 :
  62. 130 F=2
  63. 132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
  64. 134 GOSUB 356:GOSUB194
  65. 136 GOSUB5670
  66. 138 GOSUB248
  67. 140 IFVQ=2THENVQ=0:GOTO130
  68. 142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
  69. 144 GOSUB356:GOSUB194:GOSUB5670
  70. 146 GOSUB248
  71. 148 IFVQ=2THENVQ=0:GOTO142
  72. 150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
  73. 152 PRINT"       [211]TUDENT: ";SN$
  74. 154 ZZ=W+R:PR=INT((R/ZZ)*100)
  75. 156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
  76. 158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
  77. 160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
  78. 162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
  79. 164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
  80. 166 PRINT"       =============================="
  81. 168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
  82. 170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
  83. 172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
  84. 174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
  85. 176 GETZ$:IFZ$=""THEN176
  86. 178 IFZ$="Y"THEN182
  87. 180 GOSUB6410:GOTO 8000
  88. 182 FORK=1TO3
  89. 184 PRINT"[147]";NA$;"":FORI=1TON1(K)
  90. 186 PRINT MO$(NX);P1$(K,I)" ";
  91. 188 NX=NX+1:IFNX=2THENPRINT:NX=0
  92. 190 IFP1$(K,I)=" "THENGOSUB6200
  93. 192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
  94. 194 IFQH=1THENRETURN
  95. 196 PRINT"[147]";NA$
  96. 198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
  97. 200 PRINT"               1.[146] [198]AST"
  98. 202 PRINT"               2.[146] [205]EDIUM"
  99. 204 PRINT"               3.[146] [211]LOW"
  100. 206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
  101. 208 GETZ$:IFZ$=""THEN208
  102. 210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
  103. 212 IFCH=1THENS=20
  104. 214 IFCH=2THENS=50
  105. 216 IFCH=3THENS=75
  106. 218 GOSUB 220:GOSUB236:RETURN
  107. 220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
  108. 222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
  109. 224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
  110. 226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
  111. 228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
  112. 230 GETZ1$:IFZ1$=""THEN230
  113. 232 IFZ1$<>CHR$(13)THEN230
  114. 234 GOSUB5560:RETURN
  115. 236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
  116. 238 PRINT""
  117. 240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
  118. 242 FORDY=1TO500:NEXTDY
  119. 244 FOR J=1TO 39
  120. 246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
  121. 248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
  122. 250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
  123. 252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
  124. 254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
  125. 256 PRINT"   THAT FOLLOW (Y/N)?"
  126. 258 GETZ$:IFZ$=""THEN258
  127. 260 GOSUB5560
  128. 262 IFZ$="Y"ANDF=1THEN122
  129. 264 IFZ$="Y"ANDF=2THEN124
  130. 266 IFZ$="Y"ANDF=3THEN142
  131. 268 IFZ$<>"N"THEN248
  132. 270 PRINT"[147]"NA$
  133. 272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
  134. 274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
  135. 276 PRINT"  THE CORRECT ANSWER."
  136. 278 GOSUB 356:TM=0
  137. 280 FOR J=1TO5
  138. 282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
  139. 284 PRINT"[158] **************************************"
  140. 286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
  141. 288 PRINT"[158] **************************************"
  142. 290 GOSUB382
  143. 292 GETZ$:IFZ$=""THEN292
  144. 294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
  145. 296 GOSUB370
  146. 298 FORV=1TO4
  147. 300 IFV=QCTHEN304
  148. 302 PRINTDL$(V)
  149. 304 NEXTV
  150. 306 IFQC=CO(F,L(F,J))THEN348
  151. 308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
  152. 310 PRINTY2$;"               [212]RY AGAIN!"
  153. 312 GOSUB382
  154. 314 GETZ1$:IFZ1$=""THEN314
  155. 316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
  156. 318 IFQS=CO(F,L(F,J))THEN336
  157. 320 FORV=1TO4
  158. 322 IFV=CO(F,L(F,J))THEN326
  159. 324 PRINTDL$(V)
  160. 326 NEXTV
  161. 328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
  162. 330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
  163. 332 :
  164. 334 GOSUB 356:GOTO354
  165. 336 FORV=1TO4
  166. 338 IFV=QSTHEN342
  167. 340 PRINTDL$(V)
  168. 342 NEXTV:GOSUB370
  169. 344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
  170. 346 GOSUB364:R=R+1:GOSUB356:GOTO354
  171. 348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
  172. 350 GOSUB364
  173. 352 GOSUB356
  174. 354 NEXTJ:RETURN
  175. 356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
  176. 358 GETQ$:IFQ$=""THEN358
  177. 360 IFQ$<>CHR$(13)THEN358
  178. 362 GOSUB5560:RETURN
  179. 364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
  180. 366 POKE53280,6:POKE53281,12
  181. 368 RETURN
  182. 370 PRINTY1$"                                       "
  183. 372 PRINTY2$"                                       "
  184. 374 PRINTY3$"                                       "
  185. 376 PRINTY4$"                                       "
  186. 378 PRINTX5$"                                       "
  187. 380 RETURN
  188. 382 REM
  189. 384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
  190. 386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
  191. 388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
  192. 390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
  193. 392 PRINTX5$;"     ";D5$
  194. 394 RETURN
  195. 396 :
  196. 398 REM **** DATA FOR STORY ****
  197. 400 :
  198. 402 WS=INT(RND(1)*5+1)
  199. 404 ONWSGOSUB408,410,412,414,416
  200. 406 RETURN
  201. 408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
  202. 410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
  203. 412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
  204. 414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
  205. 416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
  206. 2000 DATA"  [206]O ONE","SET OUT","DELIBERATELY","TO MAKE","THAT [211]ATURDAY"
  207. 2005 DATA"EXCITING.","[204]IKE","MANY WEEKENDS","IN [193]UGUST,","WE'D VENTURED"
  208. 2010 DATA"FROM HOME","AND SCREAMING"," MOTHERS","TO SEEK FORTUNE","AND FAME"
  209. 2015 DATA"AMONGST","THE DRIFT WOOD","AND PIRATES","ON [204]AKE [211]UPERIOR'S"
  210. 2020 DATA"SHORE."," ","  [212]HE MORNING","PROMISED","A GREAT DAY.","[215]E HAD"
  211. 2025 DATA"DISCOVERED SOME","EXCELLENT FLOTSAM","FOR BUILDING","A RAFT."
  212. 2026 DATA"[205]OST OF","THE MORNING","WAS SPENT","CONSTRUCTING"
  213. 2027 DATA"A FLOATING","GARBAGE PILE!"," "
  214. 2030 DATA"  [193]S USUAL,","THE RAFT WAS","LESS THAN","SEAWORTHY.","[201]NFACT,"
  215. 2035 DATA"IT WAS","DOWNRIGHT","EMBARRASSING.","[201]T WAS","CHRISTENED,","SAILED,"
  216. 2040 DATA"AND SUNK,","ALL","IN THE SPACE","OF THREE MINUTES!","[200]OWEVER,"
  217. 2045 DATA"WHAT WE LACKED","IN SKILL,","WE MORE THAN","MADE UP FOR"
  218. 2050 DATA"WITH ENTHUSIASM."," ","  [193]FTER WE","HAD WOLFED","OUR LUNCHES"
  219. 2055 DATA"AND SACRIFICED","A DOZEN","DEAD FISH","IN THE CAMPFIRE,"
  220. 2060 DATA"WE DECIDED","TO BUILD","A FORTRESS","HIGH UPON","THE BLUFF WALL."
  221. 2065 DATA"[212]HE FIELDS","ABOVE THESE BLUFFS","WERE USED","BY THE MAYOR"
  222. 2070 DATA"AS FARMLAND.","[212]HE FORTRESS","CONSTRUCTION","WAS THE BEGINNING"
  223. 2075 DATA"OF THE END!"," ","***"
  224. 2080 DATA"  [194]Y MID-AFTERNOON","THE FORTRESS","WAS COMPLETE.","[194]ARRING ANY"
  225. 2085 DATA"MAJOR CATASTROPHE,","SUCH AS","A PUFF OF WIND","OR DROP","OF RAIN,"
  226. 2090 DATA"THE STRUCTURE","WAS INDESTRUCTIBLE.","[213]NFORTUNATELY,"
  227. 2095 DATA"ONCE YOU OPENED","YOUR EYES,","IT WAS PLAIN","TO SEE"
  228. 2100 DATA"THAT OUR CREATION","WAS JUST SHORT","OF ANOTHER","DISASTER!"," "
  229. 2105 DATA"  [201]T WAS FORMED","PRIMARILY","OF SOME OLD,","WATER-SOAKED, PLANKS"
  230. 2110 DATA"WASHED UP","BY THE WAVES.","[212]HESE WERE","PERCHED CARELESSLY"
  231. 2115 DATA"JUST BELOW","THE TOP EDGE","OF THE BLUFF.","[215]E HAD USED","THE TALL"
  232. 2120 DATA"DRIED GRASS","FROM THE FIELD","AS A ROOF","AGAINST","THE ELEMENTS."
  233. 2125 DATA"[212]HE ROOF"
  234. 2130 DATA"WAS NOT","OF MUCH USE","CONSIDERING","THERE WAS","MORE SKY"
  235. 2135 DATA"THAN ROOF."," ","  [203]ELLY","WAS THE ONLY","BRAVE BUCANEER"
  236. 2140 DATA"TO VENTURE","INTO THE STRONGHOLD.","[206]OW, TO BE","COMPLETELY HONEST,"
  237. 2145 DATA"[203]ELLY'S BRAINS","WERE NOT","ALL THERE!"
  238. 2150 DATA"[212]HE REST OF US","DECLINED","HIS INVITATION","TO JOIN HIM,"
  239. 2155 DATA"AFTER WE WATCHED","THE FLOOR SWAY","LIKE JELLO,","UNDER [203]ELLY'S"
  240. 2160 DATA"WEIGHT."," ","  [201]T WAS","AT THIS POINT,","THAT [208]AUL","SUGGESTED"
  241. 2165 DATA"WE BURN","THE FORT","TO HELP EASE","THE PAIN","OF OUR"
  242. 2170 DATA"INJURED PRIDE."," ","***"
  243. 2175 DATA"  [193]T FIRST,","EVERYTHING","WAS UNDER","CONTROL.","[193] SUDDEN GUST"
  244. 2180 DATA"OF WIND","HOWEVER,","SOON CHANGED","ALL THAT.","[212]HE MAYOR'S FIELD"
  245. 2185 DATA"WAS ABLAZE!"," ","[207]UR EXCITEMENT","WAS SOON LOST","IN PANIC"
  246. 2190 DATA"WITH","THE REALIZATION","THAT THE GRASSFIRE","WAS OUT","OF CONTROL!"
  247. 2195 DATA" ","  [215]E THRASHED","DESPERATELY","AT THE LEAPING","FLAMES","WITH OUR"
  248. 2200 DATA"DAMPENED JACKETS.","[215]E WORKED","FURIOUSLY","IN THE CHOKING"
  249. 2205 DATA"THICK SMOKE","AND BLISTERING HEAT."," ","  [193] SHORT ETERNITY","LATER,"
  250. 2210 DATA"WE'D MANAGED","TO CONTAIN","THE FIRE","TO THE EDGE","OF THE BLUFFS"
  251. 2215 DATA"WHERE THE GRASS","WAS LONGEST.","[215]E COULD","DIRECT IT,","BUT"
  252. 2220 DATA"WE COULDN'T","STOP IT!"," ","  [201]N DESPERATION,","WE TRIED"
  253. 2225 DATA"WETTING DOWN","THE GRASS,","BUT THE HEAT","WAS TOO INTENSE."
  254. 2230 DATA"[193]LL OUR EFFORTS","SEEMED IN VAIN!","[200]OURS","HAD PASSED"
  255. 2235 DATA"AND FATIGUE","WAS GAINING!"," ","  [215]E DECIDED","TO RISK","IT ALL"
  256. 2240 DATA"IN ONE","LAST EFFORT.","[193]HEAD OF","THE ONCOMING FLAMES","WE MADE"
  257. 2245 DATA"OUR STAND.","[215]E DAMPENED","THE FLATTENED","GRASS","AND BUILT"
  258. 2250 DATA"A NARROW WALL","OF SAND.","[215]HAT A SIGHT","WE MADE!"
  259. 2255 DATA"[194]LACKENED FACES","STREAKED","WITH SWEAT;"
  260. 2260 DATA"CLUTCHING","TATTERED","AND BURNED SHREDS","OF OUR JACKETS."," "
  261. 2265 DATA"  [212]HE FLAMES","ROARED ONWARD,","BUT FATE","SMILED ON US."
  262. 2270 DATA"[193]S THE FLAMES","REACHED","THE DEFENSES,","THE WIND DIED."
  263. 2275 DATA"[215]E BEAT","THE FLAMES","MERCILESSLY!","[201]N SECONDS,","THE FIRE"
  264. 2280 DATA"WAS OUT."," ","  [215]E HAD WON!","[217]ET,","NOT ONE","HOOP OF JOY"
  265. 2285 DATA"WAS HEARD.","[215]E DRAGGED","OUR TIRED BODIES","AND CHARRED"
  266. 2290 DATA"JACKETS","FROM THE","HOLLOW VICTORY.","[215]E'D HAD","ENOUGH EXCITEMENT"
  267. 2295 DATA"FOR ONE DAY."," ","***"
  268. 2300 DATA"[207]N WHICH DAY DOES THE ACTION","TAKE PLACE?","[211]UNDAY","[211]ATURDAY"
  269. 2305 DATA"[215]EDNESDAY","[205]ONDAY",2
  270. 2310 DATA"[201]N WHAT SEASON DOES THE ACTION","TAKE PLACE?","[211]UMMER","[198]ALL"
  271. 2315 DATA"[215]INTER","[211]PRING",1
  272. 2320 DATA"[215]HERE DOES THE STORY TAKE","PLACE?","[204]AKE [207]NTARIO","[204]AKE [205]ICHIGAN"
  273. 2325 DATA"[208]ACIFIC [207]CEAN","[204]AKE [211]UPERIOR",4
  274. 2330 DATA"[215]HY DID THE MORNING PROMISE","A GOOD DAY?","[212]HE SKY WAS BLUE"
  275. 2335 DATA"[201]T WAS WARM AND BREEZY","[212]HERE WAS GOOD SHORE DEBRIS"
  276. 2340 DATA"[212]HE WAVES WERE LARGE",3
  277. 2345 DATA"[215]HAT IS THE MEANING OF THE","WORD 'FLOTSAM'?","A SMALL BOAT"
  278. 2350 DATA"A TYPE OF RAFT","DEBRIS WASHED ASHORE","OLD ROPE FROM A SHIP",3
  279. 2355 DATA"[215]HY WAS THE RAFT EMBARRASSING?"," ","[201]T SANK INSTANTLY"
  280. 2360 DATA"[201]T WAS POORLY MADE","[201]T SAILED SLOWLY","[201]T WAS TOO SMALL",2
  281. 2365 DATA"[215]HAT IS A 'BLUFF'?"," ","A LIE","A SMALL HILL","A MOUNTAIN"
  282. 2370 DATA"A SMALL CLIFF",4,"[215]HAT WERE THE FIELDS ABOVE THE","BLUFF, USED FOR?"
  283. 2375 DATA"FOR GARDENS","FARM FIELDS","CONSERVATION LAND","NOTHING AT ALL",2
  284. 2380 DATA"[215]HO OWNED THE FIELDS ABOVE","THE BLUFFS?","THE MAYOR"
  285. 2385 DATA"THE CHIEF OF POLICE","A TEACHER","THE TOWN'S BANKER",1
  286. 2390 DATA"[215]HICH STATEMENT BELOW IS TRUE?"," ","[212]HE STORY HAPPENS ON A WEEKEND"
  287. 2395 DATA"[212]HE STORY BEGINS IN THE MORNING","[212]HE RAFT SANK IN THREE MINUTES"
  288. 2400 DATA"ALL OF THESE",4
  289. 2405 DATA"[212]HE FORTRESS WAS..."," ","INDESTRUCTIBLE","WELL MADE","A DISASTER"
  290. 2410 DATA"NONE OF THESE",3
  291. 2415 DATA"[215]HY DOES THE AUTHOR CALL A PUFF","OF WIND A CATASTROPHE?"
  292. 2420 DATA"[200]E IS MAKING FUN OF THE FORT","[212]HE WIND WAS VERY STRONG"
  293. 2425 DATA"[212]HE WIND WAS UNSTABLE","[212]HE FORT WAS NOT FINISHED",1
  294. 2430 DATA"[215]HY WAS THE ROOF NOT OF MUCH","USE AGAINST THE ELEMENTS?"
  295. 2435 DATA"[201]T LEAKED","[201]T WAS FLAT","[212]HERE WAS NOT MUCH OF IT"
  296. 2440 DATA"[201]T WAS MADE OF GRASS",3
  297. 2445 DATA"[215]HY DID [203]ELLY GO INTO THE","FORT?","[200]E WAS BRAVE","[200]E WAS COLD"
  298. 2450 DATA"[200]E WANTED TO PROVE HIMSELF","[200]E WAS CRAZY",4
  299. 2455 DATA"[212]HE FORT WAS COMPLETED BY..."," ","LATE AFTERNOON","EARLY AFTERNOON"
  300. 2460 DATA"NOON TIME","MID-AFTERNOON",4
  301. 2465 DATA"[215]HERE HAD THE FORT BEEN","BUILT?","AT THE BOTTOM OF THE BLUFF"
  302. 2470 DATA"ON THE SHORE","ON THE FIELD ABOVE THE BLUFF"
  303. 2475 DATA"NEAR THE TOP OF THE BLUFF",4
  304. 2480 DATA"[215]HAT WAS THE ROOF OF THE FORT","MADE OF?","LEAVES","STICKS","GRASS"
  305. 2485 DATA"BOARDS",3,"[215]HY DIDN'T ANYONE WANT TO JOIN","[203]ELLY, IN THE FORT?"
  306. 2490 DATA"[206]O ONE LIKED HIM","[212]HE FORT WAS UNSAFE","[212]HEY WERE TOO TIRED"
  307. 2495 DATA"[212]HEY WERE GOING TO BURN IT",2
  308. 2500 DATA"[200]OW WOULD BURNING THE FORT HELP","THEIR INJURED PRIDE?"
  309. 2505 DATA"[212]HEY WOULD GET REVENGE","[212]HEY WOULD HAVE FUN"
  310. 2510 DATA"[212]HE FORT WAS A DISASTER","[212]HEY LOVED FIRES",1
  311. 2515 DATA"[215]HY WAS THE BOY'S PRIDE INJURED?"," ","[212]HE FORT WAS UNSAFE"
  312. 2520 DATA"[207]NLY [203]ELLY DARED ENTER THE FORT","[212]HE FORT WAS POORLY MADE"
  313. 2525 DATA"NONE OF THESE",3
  314. 2530 DATA"[215]HAT CAUSED THE FIRE TO GET","OUT OF CONTROL?","TALL GRASS"
  315. 2535 DATA"THE WIND","CARELESSNESS","THE DRYNESS OF THE GRASS",2
  316. 2540 DATA"[215]HAT DID THE BOYS USE TO TRY","AND PUT OUT THE FIRE?"
  317. 2545 DATA"ONLY SAND","ONLY WATER","THEIR JACKETS","FIRE EXTINQUISHERS",3
  318. 2550 DATA"[215]HY COULD THEY NOT PUT OUT THE","FIRE AT THE CLIFF'S EDGE?"
  319. 2555 DATA"[212]HE WIND WAS TOO STRONG","[212]HEY WERE TOO TIRED"
  320. 2560 DATA"[212]HE GRASS WAS TOO TALL","[212]HE FIRE WAS TOO HOT",3
  321. 2565 DATA"[215]HY DIDN'T DAMPENING THE GRASS","WITH WATER STOP THE FIRE?"
  322. 2570 DATA"[212]HE WATER RAN AWAY","[212]HE WIND DRIED UP THE WATER"
  323. 2575 DATA"[212]HE GROUND SOAKED IT UP","[212]HE FIRE'S HEAT DRIED IT UP",4
  324. 2580 DATA"[215]HICH HAPPENED FIRST?"," ","[212]HEIR FACES WERE BLACK"
  325. 2585 DATA"[198]IRE BURNED ONLY AT THE EDGE","[212]HE WIND DIED"
  326. 2590 DATA"[212]HEY BUILT A SAND WALL",2
  327. 2595 DATA"[215]HAT DOES THE PHRASE 'A","HOLLOW VICTORY' MEAN?"
  328. 2600 DATA"[212]HEY'D LOST","[212]HEY WERE TOO TIRED TO CARE"
  329. 2605 DATA"[212]HE VICTORY WAS NOT SATISFYING","NONE OF THESE",3
  330. 2610 DATA"[215]HAT DOES THE PHRASE ' FATE","SMILED ON US ' MEAN?"
  331. 2615 DATA"[212]HEY WERE LUCKY","[201]T WOULD BE EASY","[212]HEY HAD A GOOD TIME"
  332. 2620 DATA"[212]HEY WOULD WIN THE BATTLE",1
  333. 2625 DATA"[215]HAT DO YOU THINK THE BOY'S","WOULD HAVE DONE IF THEY'D FAILED?"
  334. 2630 DATA"RUN HOME","CRY","RUN FOR HELP","IGNORE THE FIRE",3
  335. 2635 DATA"[215]HY DID THE BOY'S FEEL THEY","COULD MAKE ONLY ONE LAST EFFORT?"
  336. 2640 DATA"[201]T WAS GETTING LATE","[212]HE FIRE WAS GETTING TO BIG"
  337. 2645 DATA"[212]HEY WERE GETTING TIRED","ALL OF THE ABOVE",3
  338. 2650 DATA"[215]HICH STATEMENT IS FALSE?"," ","[212]HEIR JACKETS WERE WET"
  339. 2655 DATA"[212]HE WIND DIED","[212]HE SAND WALL WORKED WELL"
  340. 2660 DATA"[212]HEIR JACKETS WERE RUINED",3
  341. 4997 :
  342. 4998 REM **** END OF STORY DATA ****
  343. 4999 :
  344. 5000 POKE53280,5:POKE53281,12:GOSUB6870
  345. 5007 PRINT"[147]";NA$
  346. 5010 PRINT"       [200]ELLO, ";SN$;"."
  347. 5020 PRINT"        [208]LEASE READ THE STORY AND"
  348. 5030 PRINT"       ANSWER THE QUESTIONS THAT"
  349. 5040 PRINT"       FOLLOW."
  350. 5050 PRINT"     [217]OU MAY HAVE THE STORY PRINTED"
  351. 5060 PRINT"       OUT IN TWO DIFFERENT WAYS."
  352. 5070 PRINT"       1) [193]  PARAGRAPH [146] AT A TIME."
  353. 5080 PRINT"       2) [193]  PHRASE [146] AT A TIME."
  354. 5090 PRINT"       [201]N OPTION NUMBER TWO YOU "
  355. 5100 PRINT"     WILL BE ABLE TO CONTROL THE "
  356. 5110 PRINT"     SPEED OF THE PHRASES AS THEY"
  357. 5120 PRINT"     FLASH ON THE SCREEN."
  358. 5130 PRINT"  [215]HICH [207][208][212][201][207][206] WOULD YOU LIKE (1 OR 2)?"
  359. 5140 GETX$:IFX$=""THEN5140
  360. 5150 QH=VAL(X$):IFQH<1ORQH>2THEN5140
  361. 5160 RETURN
  362. 5170 GETZ$:IFZ$=""THEN5170
  363. 5180 IFZ$<>CHR$(13)THEN5170
  364. 5190 GOSUB5560
  365. 5210 RETURN
  366. 5220 PRINT"[147]":POKE53280,6:POKE53281,12
  367. 5230 GOSUB5340:GOTO5240
  368. 5240 AS=2006:AD=-39
  369. 5250 PRINTWS$;"           ONE MOMENT, PLEASE! "
  370. 5260 GOSUB76:RETURN
  371. 5270 FORD=1TO100:NEXTD:RETURN
  372. 5280 RETURN
  373. 5290 RETURN
  374. 5300 RETURN
  375. 5310 :
  376. 5320 REM *** GRAPHIC OPENING ***
  377. 5330 :
  378. 5340 POKE53281,12:POKE53280,7
  379. 5350 PRINT"           R. PRACHUN (1983) "
  380. 5352 :
  381. 5353 REM *** OPENING GRAPHIC START ***
  382. 5354 PRINT:PRINT
  383. 5360 PRINTCHR$(YY)"                 [165]
  384. 5362 [153]"            FN       (null)
  385. 5364 PRINT"                [206][165]  [206]    [206]     [205]
  386. 5366 [153]"           (null)(null)  THEN FN        THEN(null)   (null)
  387. 5368 PRINT"          [167] [205][205] [206] [205] [206][205]  [206][165] [206] [165]
  388. 5370 [153]"           (null) (null)(null) (null)(null) FN(null) (null)(null) (null) (null) (null)(null)
  389. 5372 PRINT"         [165] [206] [205][180][165][205][205][206] [165] [165][205] [165][165][205][206] [206]
  390. 5374 [153]"          (null) (null)(null)(null)  (null)(null)(null)(null)(null) THEN(null)(null) (null)(null) (null)
  391. 5376 PRINT"        [206][205][205] [205][205][205] [205][205] [167] [165][167] [165]  [206][206] [206]
  392. 5378 [153]"        (null)(null)TAB((null) (null)(null) (null)(null) (null)(null) (null)(null)(null)(null)(null)(null) (null)(null)
  393. 5380 PRINT"        [206][206] [206][206] [206] [205][205]  [205] [205] [205][205] [205]  [205][205]
  394. 5382 [153]"STOP        FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  395. 5384 PRINT"           F I R E F I G H T
  396. 5386 [153]"
  397. 5388 PRINT"[144]        [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  398. 5390 [153]"
  399. 5392 RETURN
  400. 5555 REM *** END OF OPENING GRAPHIC ***
  401. 5560 SM=54272:FORL=0TO24:POKESM+L,0:NEXT
  402. 5570 POKESM+1,45 :POKESM+5,10
  403. 5580 POKESM+15,30:POKESM+24,6:POKESM+4,21
  404. 5590 FORTT=1TO150:NEXT
  405. 5600 POKESM+4,20:POKESM+24,0
  406. 5610 RETURN
  407. 5640 :
  408. 5650 REM *** PRINTOUT ROUTINE ***
  409. 5660 :
  410. 5670 IFQH=1THEN6050
  411. 5680 POKE53280,0:POKE53281,11
  412. 5690 FORI=1TON1(F)
  413. 5700 SH=PEEK(203):IFSH=4THENS=S-5
  414. 5710 IFSH=3THENS=S+5
  415. 5720 IFS<10THENS=10
  416. 5730 IFS>60THENS=60
  417. 5740 SH=64
  418. 5750 PRINT"              [211][208][197][197][196] [146] =";S
  419. 5760 PRINTE$:PRINTF$;
  420. 5770 PRINT"          ";(P1$(F,I))
  421. 5780 FOR J=1TOS*10:NEXTJ
  422. 5790 NEXT I:RETURN
  423. 5800 :
  424. 6040 :
  425. 6050 PRINT"[147]";NA$;"":FORI=1TON1(F)
  426. 6060 PRINT MO$(NX);P1$(F,I)" ";
  427. 6070 NX=NX+1:IFNX=2THENPRINT:NX=0
  428. 6080 IFP1$(F,I)=" "THENGOSUB6200
  429. 6090 NEXTI:NX=0:RETURN
  430. 6100 STOP:PRINT"[147]";NA$;"":FORI=1TON2
  431. 6110 PRINT P1$(F,I);" ";
  432. 6120 NX=NX+1:IFNX=2THENPRINT:NX=0
  433. 6130 IFP1$(F,I)=" "THENGOSUB6200
  434. 6140 NEXTI:NX=0:RETURN
  435. 6150 PRINT"[147]";NA$;"":FORI=1TON3
  436. 6160 PRINT P1$(F,I);" ";
  437. 6170 NX=NX+1:IFNX=2THENPRINT:NX=0
  438. 6180 IFP3$(F,I)=" "THENGOSUB6200
  439. 6190 NEXTI:NX=0:RETURN
  440. 6200 PRINT"   [208]RESS THE [146] [210]ETURN [203]EY  TO [195]ONTINUE "
  441. 6210 GETZ$:IFZ$=""THEN6210
  442. 6220 IFZ$<>CHR$(13)THEN6210
  443. 6230 PRINT"[147]";NA$;"":NX=0:RETURN
  444. 6235 :
  445. 6300 REM
  446. 6310 PRINT"[147]      [217]OU APPEAR TO BE HAVING SOME "
  447. 6320 PRINT"      TROUBLE WITH THESE QUESTIONS."
  448. 6330 PRINT"       [212]RY READING THIS PART OF THE"
  449. 6340 PRINT"      STORY AGAIN. [201] WILL GIVE YOU "
  450. 6350 PRINT"      ANOTHER SET OF QUESTIONS WHEN"
  451. 6360 PRINT"      YOU HAVE FINISHED."
  452. 6370 PRINT"   [208]RESS THE [146] [210][197][212][213][210][206]  KEY TO CONTINUE "
  453. 6380 GETX$:IFX$=""THEN6380
  454. 6390 IFX$<>CHR$(13)THEN6380
  455. 6400 TM=0:VQ=2:RETURN
  456. 6410 PRINT"[147]     [196]O YOU WISH TO HAVE THE STORY"
  457. 6420 PRINT"     PRINTED OUT TO A PRINTER (Y/N)?"
  458. 6430 GETZ$:IFZ$=""THEN6430
  459. 6440 IFZ$="Y"THENGOSUB10500:GOTO6470
  460. 6450 IFZ$<>"N"THEN6430
  461. 6460 RETURN
  462. 6470 IFDQ=2THENDQ=0:GOSUB9700:GOTO6410
  463. 6475 PRINT"[147]    [201]NSERT PAPER AND [212]URN ON [208]RINTER! ":GOSUB356
  464. 6480 OPEN4,4
  465. 6490 FORK=1TO3
  466. 6500 PRINT#4,"";NA$
  467. 6510 FOR I=1TO N1(K)
  468. 6520 PRINT#4,"";MO$(NX);P1$(K,I)" ";
  469. 6530 NX=NX+1:IFNX=4THENPRINT#4:NX=0
  470. 6540 IFP1$(K,I)=" "THENPRINT#4:NX=0
  471. 6550 NEXTI:NX=0:NEXTK:CLOSE4
  472. 6560 RETURN
  473. 6570 PRINT"   [215]OULD YOU LIKE THE [210]EPORT TO BE"
  474. 6580 PRINT"   PRINTED ON A PRINTER (Y/N)?"
  475. 6590 GETX$:IFX$=""THEN6590
  476. 6600 IFX$="Y"THEN6630
  477. 6610 IFX$<>"N"THEN6590
  478. 6620 RETURN
  479. 6630 GOSUB6850:IFDQ=2THENGOSUB9700:RETURN
  480. 6635 PRINT"   [208]RINTING OUT [210]EPORT FOR [146] ";SN$
  481. 6640 TQ=W+R
  482. 6650 OPEN4,4
  483. 6660 PRINT#4,"";NA$
  484. 6670 PRINT#4
  485. 6680 PRINT#4,"   ==================================="
  486. 6690 PRINT#4,"        [211]TUDENT: ";SN$
  487. 6700 PRINT#4,"   ==================================="
  488. 6710 PRINT#4,"   [211]TORY [210]EPORT"
  489. 6720 PRINT#4,"   ------------"
  490. 6730 PRINT#4,"   [212]OTAL [206]UMBER OF [209]UESTIONS: ";TQ
  491. 6740 PRINT#4
  492. 6750 PRINT#4,"   [193]NSWERS [195]ORRECT (1ST TRY): ";C1
  493. 6760 PRINT#4
  494. 6770 PRINT#4,"   [193]NSWERS [195]ORRECT (2ND TRY): ";C2
  495. 6780 PRINT#4
  496. 6790 PRINT#4,"   [212]OTAL [201]NCORRECT [209]UESTIONS: ";W
  497. 6800 PRINT#4
  498. 6810 PRINT#4,"   [212]OTAL [209]UESTIONS [195]ORRECT  : ";R
  499. 6820 PRINT#4,"   ----------------------------------"
  500. 6830 PRINT#4,"   [208]ERCENTAGE [195]ORRECT       : ";PR;" %"
  501. 6840 CLOSE4:GOSUB356:RETURN
  502. 6850 SYS(828):IFPEEK(2)=5THENDQ=2:RETURN
  503. 6858 PRINT"[147]  [201]NSERT PAPER AND TURN ON THE PRINTER "
  504. 6860 GOSUB356:PRINT"[147]":RETURN
  505. 6862 :
  506. 6870 PRINTCHR$(142):PRINT"[147]"
  507. 6880 VB$="":IU=14:JQ=0
  508. 6900 PRINT"        PLEASE TYPE IN YOUR FIRST "
  509. 6910 PRINT"        NAME:>[146] ":PRINT
  510. 6920 ZZ$="":POKE204,1:PRINTVB$
  511. 6930 GETZA$:IFZA$=""THEN6930
  512. 6940 IFASC(ZA$)=13THENSN$=ZZ$:GOTO7000
  513. 6950 IFASC(ZA$)=20THENGOTO6980
  514. 6955 IFASC(ZA$)<65ORASC(ZA$)>90THEN6930
  515. 6957 JQ=JQ+1:IFJQ=16THENZZ$="":GOTO6870
  516. 6960 ZZ$=ZZ$+ZA$:IU=IU+1
  517. 6970 PRINT"";TAB(IU);ZA$;:GOTO6930
  518. 6980 IFIU=14THENGOTO6930
  519. 6990 JQ=JQ-1:ZZ$=LEFT$(ZZ$,LEN(ZZ$)-1):IU=IU-1:GOTO6970
  520. 7000 IFSN$=""THEN6870
  521. 7010 FL=ASC(LEFT$(ZZ$,1)):FL=FL+128
  522. 7020 SN$=MID$(ZZ$,2,(LEN(ZZ$)-1))
  523. 7030 ZZ$=CHR$(FL)+SN$:SN$=ZZ$
  524. 7040 PRINTCHR$(14):RETURN
  525. 8000 PRINT"[147]     [215]OULD YOU OR ANYONE ELSE LIKE "
  526. 8010 PRINT"     TO READ THIS STORY NOW (Y/N)?"
  527. 8020 GETZ$:IFZ$=""THEN8020
  528. 8025 IFZ$="Y"THENRUN
  529. 8030 IFZ$<>"N"THEN8020
  530. 8040 :
  531. 8041 PRINT"      [215]OULD YOU LIKE ANOTHER STORY"
  532. 8042 PRINT"             PERHAPS (Y/N)?"
  533. 8050 GETX$:IFX$=""THEN8050
  534. 8060 IFX$="Y"THENGOSUB9500:GOTO9000
  535. 8070 IFX$<>"N"THEN8050
  536. 8100 SYS64738
  537. 8200 :END:
  538. 9000 IFDQ=2THENDQ=0:POKE831,4:GOSUB9700:GOTO8040
  539. 9005 PRINT"[144][147]        [204]OADING:  [205]AIN [205]ENU 64 "
  540. 9010 POKE53281,1:POKE53280,6
  541. 9020 REM *** BOOT SAMPLE ***
  542. 9030 :
  543. 9040 :
  544. 9050 REM *** FIRST PROGRAM BOOTED ***
  545. 9060 :
  546. 9070 PRINT"LOAD"CHR$(34)"MAIN MENU 64";CHR$(34)",8"
  547. 9080 :
  548. 9090 :
  549. 9100 PRINT"RUN"
  550. 9110 :
  551. 9120 REM *** SET-UP KEYBOARD BUFFER ***
  552. 9130 :
  553. 9140 PRINT"":FORJ=0TO4:POKE631+J,13:NEXTJ:POKE198,5
  554. 9150 END
  555. 9500 POKE831,8:GOSUB10500:IFDQ=2THENRETURN
  556. 9505 PRINT"[147]    [201]NSERT THE [193]DVENTURE [211]ERIES DISK"
  557. 9510 PRINT"          INTO THE DISK DRIVE."
  558. 9520 GOSUB356:RETURN
  559. 9700 PRINT"[147]     [207]PPS! [212]HE DEVICE IS NOT READY! "
  560. 9710 GOSUB356:RETURN
  561. 10000 FORK=0TO24
  562. 10010 READ ZZ:POKE828+K,ZZ
  563. 10020 NEXT K:RETURN
  564. 10500 SYS(828):IFPEEK(2)=5THENDQ=2
  565. 10510 RETURN
  566.